COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	αXDEFINE ∪↔	To list items into n columns on a page (skip 1 less than no. rows)
C00003 ENDMK
C⊗;
αXDEFINE ∪⊗↔⊗;	To list items into n columns on a page (skip 1 less than no. rows)
αβA⊗;		Pick up the first item
αβ7⊗↔αβ+αβcαβ7⊗↔αβ+αβcαβ7⊗↔αβ+αβc⊗; Skip 7 and copy, three times
αβ7⊗↔⊗→αβe⊗;	Skip 7 <form> and deposit
α⊗=⊗⊗αdα⊗=⊗⊗αdα⊗=⊗⊗αd⊗; Collect 3 items separated by ⊗
α⊗=\cr⊗↔⊗; Go to the end, add \cr and do a <cr>
αl⊗;   return to top of list
αβ⊗↓⊗; exit